gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\include\faqbase.asp
<% '================================================ = '过程名:ShowFaqList '作 用:显示常见问题列表 '参 数:无 '================================================ = sub ShowFaqList() dim strSQL, rsObj, i %> <TABLE cellSpacing = 0 cellPadding = 0 width = "100%" bgColor = #ffffff border = "0" style = "border-collapse: collapse" bordercolor = "#111111" ID = "Table1"> <TBODY> <TR> <TD bgColor = #FFFFFF> <form method = "post" action = "regStep2.asp" name = "form1" ID = "Form1"> <TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table2"> <tr> <TD bgcolor = "<%=conTitleColor%>"> <DIV align = center>购物帮助</DIV></TD> </tr> <tr> <TD bgColor = #ffffff><table width = "100%" border = "0" bordercolordark = #3979c6 bordercolorlight = #FFEEAC cellspacing = "0" cellpadding = "0" align = "center" ID = "Table3"> <tr> <td bgcolor = "#818181" colspan = "2"></td> </tr> <% strSQL = "SELECT top 10 * FROM faq ORDER by HitNum DESC" set rsObj = conn.execute (strSQL) i = 0 do while not (rsObj.eof or err) i = i+1 %> <tr> <td bgcolor = "<%=conBackColor%>"> <div align = "left"> <%=i%>、<a href = "faqDetail.asp?id=<%=rsObj("id")%>" title = "点击查看具体信息"><%=rsObj("question")%>(点击<font color=red><%=rsObj("HitNum")%></font>次)</a></div> </td> </tr> <% rsObj.MoveNext loop %> </table></TD> </tr> </table> </form></TD></TR> </TBODY></TABLE> <% end sub '================================================ = '过程名:ShowFaqDetail '作 用:显示常见问题内容 '参 数:无 '================================================ = sub ShowFaqDetail(FaqId) dim rsObj,strSQL set rsObj = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM faq WHERE id = " & FaqId rsObj.Open strSQL, conn, adOpenKeyset, adLockOptimistic rsObj("HitNum") = rsObj("HitNum") + 1 rsObj.Update() %> <table border = "0" cellspacing = "0" cellpadding = "4" style = "border-collapse: collapse" bordercolor = "#111111" ID = "Table4"> <tr> <td height = "19" >问题:<b><%=rsObj("question")%></b></td> </tr> <tr> <td height = 10><font color = red><b>回答:</b></font></td> </tr> <tr> <td height = "100" valign = top ><%=Convert(rsObj("answer"))%></td> </tr> </table> <p align = "center"><a href = "Javascript:window.history.go(-1)">返回</a> <font face = "Wingdings 3"> `</font> </p> <% end sub %>